﻿Public Class FrmClave
    Inherits System.Windows.Forms.Form

    Private Sub txtUsuario_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUsuario.TextChanged
        If txtUsuario.Text = "ADMINISTRADOR" And txtClave.Text = "ADMIN" Then
            btnAceptar.Enabled = True

        End If
    End Sub

    Private Sub txtClave_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
        If txtUsuario.Text = "ADMINISTRADOR" And txtClave.Text = "ADMIN" Then
            btnAceptar.Enabled = True
        End If
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        FrmClave.ActiveForm.Hide()
        If instancia_Principal.IsDisposed = True Then
            instancia_Principal = New FrmPrincipal

        End If
        instancia_Principal.Show()
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        End
    End Sub
End Class
